Cookbook USA: Drips, Dressings & Sauces/Cookbook USA - Drips, Dressings & Sauces (1997)(MicroMedia).iso/ch15/demo.frm

Text File | 1996-07-06 | 9KB | 223 lines

VERSION 2.00
Begin Form Demo
   BackColor       =   &H00C0FFC0&
   Caption         =   "Form1"
   ClientHeight    =   8580
   ClientLeft      =   870
   ClientTop       =   1410
   ClientWidth     =   12105
   Height          =   8985
   Left            =   810
   LinkTopic       =   "Form1"
   ScaleHeight     =   8580
   ScaleWidth      =   12105
   Top             =   1065
   Width           =   12225
   Begin CommandButton Order
      Caption         =   "Ordering Information"
      Height          =   405
      Left            =   105
      TabIndex        =   12
      Top             =   5535
      Width           =   2055
   End
   Begin CommandButton EndDemo
      Caption         =   "End Demo"
      Height          =   495
      Left            =   195
      TabIndex        =   11
      Top             =   6765
      Width           =   1980
   End
   Begin TextBox DemoText
      Height          =   975
      Left            =   2370
      MultiLine       =   -1  'True
      TabIndex        =   10
      Top             =   7500
      Width           =   9615
   End
   Begin CommandButton clicktitle
      Caption         =   "Click on Title List"
      Height          =   330
      Left            =   105
      TabIndex        =   9
      Top             =   4680
      Width           =   2070
   End
   Begin CommandButton Printit
      Caption         =   "Click on Print"
      Height          =   360
      Left            =   120
      TabIndex        =   8
      Top             =   4185
      Width           =   2085
   End
   Begin CommandButton copynew
      Caption         =   "Copied into New"
      Height          =   360
      Left            =   150
      TabIndex        =   7
      Top             =   3630
      Width           =   2070
   End
   Begin CommandButton srcres
      Caption         =   "Search Results"
      Height          =   360
      Left            =   120
      TabIndex        =   6
      Top             =   2595
      Width           =   2100
   End
   Begin CommandButton clickadd
      Caption         =   "Click on Add"
      Height          =   345
      Left            =   135
      TabIndex        =   5
      Top             =   3135
      Width           =   2070
   End
   Begin CommandButton clicknext
      Caption         =   "Click on Next"
      Height          =   345
      Left            =   135
      TabIndex        =   4
      Top             =   1515
      Width           =   2070
   End
   Begin CommandButton ShowSeach
      Caption         =   "Click on Seach"
      Height          =   390
      Left            =   150
      TabIndex        =   3
      Top             =   2040
      Width           =   2085
   End
   Begin CommandButton ShowMain2
      Caption         =   "Click on Cake"
      Height          =   405
      Left            =   120
      TabIndex        =   2
      Top             =   945
      Width           =   2085
   End
   Begin CommandButton Showmain
      Caption         =   "Show Main Screen"
      Height          =   405
      Left            =   105
      TabIndex        =   1
      Top             =   405
      Width           =   2085
   End
   Begin PictureBox Picture1
      Height          =   7035
      Left            =   2355
      ScaleHeight     =   7005
      ScaleWidth      =   9615
      TabIndex        =   0
      Top             =   330
      Width           =   9645
   End
End

Sub clickadd_Click ()
Dim temp As String
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "addnew.bmp"
 demo.Picture1 = LoadPicture(temp)
 demotext.Text = "This blank screen is created when you press the New Button.  You can type your Recipe in directly or by pressing the 'copy' button, the last displayed recipe from the main screen, will be copied into the recipe.  Click on the 'Copied into New' button to see this."
  MakeMouseCursorDefault
End Sub

Sub clicknext_Click ()
MakeMouseCursorHourglass
temp2$ = CDDRIVE$ + "next.bmp"
 demo.Picture1 = LoadPicture(temp2$)
 demotext.Text = "Notice that you are now viewing the next recipe within the chapter.  Now lets look at the SEARCH SCREEN, click on the 'CLICK ON SEARCH' button to see what this screen looks like.  "
  MakeMouseCursorDefault
End Sub

Sub clicktitle_Click ()
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "title.bmp"
 demo.Picture1 = LoadPicture(temp$)
demotext.Text = "The title list shows you the next 25 titles that match your search.  By clicking on one of the titles, you will go directly to that recipe.  I hope that you can appreciate the new features available in Version 3.0.  Please feel free to contact us with any questions."
 MakeMouseCursorDefault
End Sub

Sub copynew_Click ()
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "copied.bmp"
 demo.Picture1 = LoadPicture(temp$)
      demotext.Text = "The Copied Recipe can now be edited to reflect your families needs and tastes.  By clicking on the save button it will be stored as you edited the recipe.  The Recipe may be printed.  Press the 'Click on Print' Button."
  MakeMouseCursorDefault

End Sub

Sub EndDemo_Click ()
    demotext.Text = ""
    demo.Hide
End Sub

Sub Form_Activate ()
      demotext.Text = "CookBook U.S.A. Version 3.0 has 52 chapters with over 1 million recipes on the CD-ROM.  The CD-ROM is a compilation of over 4700 seperate cookBooks and over 200,000 cooks from across america. "
      demotext.Text = demotext.Text + Chr$(13) + Chr$(10) + "You are able to select on any chapter by simply 'clicking' on the Desired tab.  Click on the 'click on cake' button to see what this would look like"

End Sub

Sub Form_Load ()
   showmain_click
End Sub

Sub Order_Click ()
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "ordernow.bmp"
 demo.Picture1 = LoadPicture(temp$)
 demotext.Text = ""
  MakeMouseCursorDefault
End Sub

Sub Printit_Click ()
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "printit.bmp"
 demo.Picture1 = LoadPicture(temp$)

     demo.Picture1 = LoadPicture("c:\cbwin2\jrmaster\source\printit.bmp")
     demotext.Text = "When you print the recipes, you are able to select any of the fonts or fontsizes that are available to windows.  Press on 'Click on Title'."
      MakeMouseCursorDefault
End Sub

Sub showmain_click ()
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "first.bmp"
 demo.Picture1 = LoadPicture(temp$)
      demotext.Text = "CookBook U.S.A. Version 3.0 has 52 chapters with over 1 million recipes on the CD-ROM.  The CD-ROM is a compilation of over 4700 seperate cookBooks and over 200,000 cooks from across america. "
      demotext.Text = demotext.Text + Chr$(13) + Chr$(10) + "You are able to select on any chapter by simply 'clicking' on the Desired tab.  Click on the 'click on cake' button to see what this would look like"
       MakeMouseCursorDefault
End Sub

Sub ShowMain2_Click ()
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "cake.bmp"
 demo.Picture1 = LoadPicture(temp$)
 demotext.Text = "Notice that the recipe number reflects the first recipe in the new chapter and the number of recipes within the chapter changes.  You also can scroll through the recipes by 'clicking' on the NEXT or PREVIOUS buttons'.  Click on the 'Click on Next Button to see this.  "
  MakeMouseCursorDefault
End Sub

Sub ShowSeach_Click ()
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "search.bmp"
 demo.Picture1 = LoadPicture(temp$)
 demotext.Text = "A Recipe is made of a title, ingredients and preparation instructions.  CookBook 3.0 allows you to search all three areas at once.  In the example above we are searching for the work CAKE within the title and CHOCOLITE CHIPS within the ingredients.  When we search only those recipes that contain both will be shown.   Click on 'Search Results' to see what that would look like "
  MakeMouseCursorDefault
End Sub

Sub srcres_Click ()
MakeMouseCursorHourglass
temp$ = CDDRIVE$ + "srcres.bmp"
demo.Picture1 = LoadPicture(temp$)
demotext.Text = "Notice that many of the chapter headings are now greyed out.  This indicates that there were no matching recipes within those chapters.  Also the total number of recipes now reflects the number of recipes that match the search.   By selecting a given chapter you are shown the first recipe that matches your search within the selected chapter. Now lets look at a new feature, ADDING RECIPES.  Click on 'Click on ADD' to see what this looks like "
MakeMouseCursorDefault
End Sub